
PROGRAMOK 



Immaron tobb mint egy eve, hogy elindult hodito utjara 
a HOMELAB 3 szamitogep. Azota sok felnott es fiatal, no es 
ferfi, vallalat es maganszemely vette birtokaba az egesz or- 
szagban, de sa jnos egy re kesett egy szoftver f iizet kiadasa, 
amely mindenfele tet jeszthetne eredmenyeinket, programjainkat, 
segitene tanacsokkal, otletekkel azokat, akik meg csak most 
ismerkednek gepiikkel. Osszekapcsolna az eddig kisse elszigetel- 
ten dolgozto geptula jdonosokat . 

Fiizetiink kiserleti jellegu, szeretnenk felmerni, milyen 
fogadtatasa van a HOMELAB felhasznalok koreben. Nem titkolt 
celunk, hogy osszegyu jtsiik az orszagszerte kesziilt programokat, 
es idonkent ilyen fiizetekben mindenki altal hozzaferhetove te- 
gyiik . Ezuton kerunk mindenkit, akinek van olyan 2-4 Kbyte nagy- 
sagu programja, amit megosztana a kozosseggel, egy kazettan nemi 
informacio kisereteben, newel es cimmel juttassa el hozzank. 

Az itt bemutatasra keriilo programok egy reszet a Budapesti 
HCC, HOMELAB klub tagjai keszitettek, es tobb programot kiildtek 
a sarkadi Ady Endre Gimnazium, Postaf orgalmi Szakkozepiskola es 
Arany Janos Kollegiuma diakjai is. 

Megprobaltuk valtozatosan osszegyu jteni a programokat, van- 
nak koztiik jatekok, grafikak, iskolai programok, rajzolo prog- 
ramok . 

Az elso reszben ismertetjiik a programokat. Ahol sziikseges, 
tanacsokat adunk a f elhasznalashoz, es felhivjuk a figyelmet 
egy-egy erdekesebb megoldasra. A masodik resz kizarolag a prog- 
ramoke . 

1. TIE VADASZAT 

A veletlenszeruen mozgo jelet a celkereszt kozepebe kell ira- 
nyitani, es a space billentyuvel el kell talalni. A program 
nem hasznal olyan utasitasokat , amelyek a bovitett BASIC-ben 
talalhatok, igy minden gepen gond nelkiil futtathato. /Azokat 



a programokat , ahol az alap BASIC-ben nem szereplo utasitasok 

vannak, kiilon megjeloljiik, ezeket esetleg egy kicsit at kell 

igazitani ahhoz, hogy alapgepen is lef uttathatok legyenek . / 

A program erdekessege, hogy a TIE figuraja nem torli ki a kep- 

ernyon talalhato jeleket . Ezt ugy eri el a program keszitoje, 

hogy az 1055. sorban letrehozza a TIE poziciojat, majd a 1070. 

sorban ezt elore elolvastat ja, es az 1075. -ben kiteszi a TIE 

f igura jat . Tavozas utan az elore elolvasott adatot tolti vissza. 

2000-tol 2101-ig a TIE mozgasanak szabalyozasa lathato, ami szin- 

ten erdekes megoldas . 

2. ERDOKERULES 

A bal felso sarokban levo jelet a jobb also sarokban levo hazi- 
koba kell vezetni maximalisan 4 iitkozessel, az otodik a jatek 
veget jelenti. Neha muszaj utkozni, hogy a zart labtrintusbol ki- 
kerulhessiink . A eel az, hogy a leheto legalacsonyabb lepesszamal 
jussunk a hazikoba. A jatek a 120. sortol a 460. -ig tart, es 
semmi kiilonlegeset nem tartalmaz. A program szabalyainak kiirasa 
egy kiilon szubrutinnal tortenik. 

3. AUTOVERSENY 

A jatekot maximum 4-en jatszhatjak. A jatekosok fogadast kothet- 
nek a negy autoversenyzo barmelyikere, amelyik szerintiik elsonek 
er a celba . A fogado meghatarozza az osszeget, amennyit tenni 
akar a versenyzo jere, ez legfeljebb a rendelkezesre alio osszeg 
lehet . Nagyon fontos tudni azt, hogy az autoversenyzok neve 
tombben van tarolva, ezert vigyazni kell a versenyzok nevenek 
megadasakor, mert mar egy ekezetnyi hiba a tet elveszteset okoz- 
za! 800.- Ft-nyi nyeres eseten egy kisse hamis jutalomzenet kap 
a gyoztes . A versenypalya kirajzolasa az 1000. sorban kezdodik. 
Az abra gyorsabb megrajzolasa erdekeben ebben a programban mar 
megtalalhato a bovitett BASIC egyik uj utasitasa, ezeket kell az 
alapgepeken atirni. Egyik lehetseges modja a kovetkezo: 

S$="":FOR T=X TO Y:S$=S$+chr$ (146):NEXT 
es a kello helyen kiiratjuk az S$-et. 

Az autoverseny 2 000-tol talalhato, a tetek ertekelese 3000-tol, 
a jutalomzene 4520-ban talalhato. 



4 . KIGYO 

Ez a program eredetileg a Mikromagazinban jelent meg. Lehet, 
hogy sokan megkisereltek a gepre valo atiilteteset, de nem biz- 
tos, hogy mindenkinek sikeriilt, ezert adjuk itt kozre. Ket meg- 
oldas is van a birtokunkban, egyiket Sarkadrol kaptuk egy diak- 
tol, a masik itt a HCC-ben borzoi ja a jatekosok idegeit . A 
Sarkadi Kigyo program is nagyon jol sikeriilt, megis az ittenit 
tessziik kozze, mert ezt a feladatot joval nehezebb teljesiteni. 
Itt a palya csak a kepernyo also reszen helyezkedik el, ezaltal 
a Kigyo mozgatasahoz csak szuken van hely. Ha a 20. sorban Z er- 
teket atir ja, konnyithet a jatekon, de a fiiggoleges adatok at- 
irasaval az egesz kepernyot kitolto abran is lehet jatszani. 
Ilyen esetben az ertekelo szovegnek mas meg jelenitest kell ki- 
dolgozni . 

5. KISZORJTO 

Itt a keretra jzolasnal megtalalhato a string$ utasitas, de ez 
akar el is hagyhato, hisz a keret csak diszitesiil szolgal. 
A jatek evekkel ezelott a tv-bol lett ismert, ket szemely sza- 
mara nyujt kellemes szorakozast. A eel az, hogy elzarjuk az 
ellenfel utjat es ezaltal iitkozesre kenyszeritslik . A program 
egyes reszeiben hasonlit a kigyohoz . 

6. HERNYO 

Ez a program eloszor a HOMELAB 2-re kesziilt, igy kezdte meg 
klubbeli palyafutasat, itt a HOMELAB 3-ra kesziilt valtozatot lat- 
hatjuk, amely csak reszben egyezik a masik programmal . A program 
sok erdekesseget tartalmaz, tehat erdemes tanulmanyozni . A 12. 
sorban a hernyo talalhato, a 20. sor pedig a faleveleket helyezi 
el. Ebben a sorban lathato az IE. THEN. ELSE funkcio megvalosita- 
sanak modja. 

40-70-ig a jatek iranyitasat talaljuk, a 130-155 sor tartalmazza 
az ertekeleseket es magat a jatek menetet . Haladas kozben a her- 
nyo fejet es farkat figyeljiik, ez a 142-149 sorok kozott talal- 
hato. Jatek kozben vigyazzunk, mert hirtelen 180 fokos fordulas 
eseten a hernyo hajlamos az elszakadasra ! 



7. UFO VADASZAT 

Alapgepen jatszhato program, hasznalatahoz az informaciot a 
program tartalmazza. A feladatot teljesiteni nagyon nehez. 
Jo megoldas a programban a loves, ez a 200. sorban kezdodik 
es a 255. sorig tart. 

8. BQMBAZO 

Alapgepen futtathato program. Tobb szemely is jatszhatja, mert 
a program megjegyzi a jatekosok nevet es tarolja az elert maxi- 
malis eredmenyeket is. A kepernyon veletlenszeruen egy haditamasz- 
pont kepe rajzolodik ki, a jatekos pedig a fent mozgo es folyton 
sullyedo gep pilotaja. A feladat az, hogy lehetoleg minel tobbet 
bombazzon le a tamaszpontbol . Loni is lehet elore, de ez nem sza- 
mit az eredmenybe. A pilotak nevenek es adatainak tarolasa a 
42-58 sorban van, a tamaszpontot a 110-170. sorban hozza letre. 

9. HOLDRASZALLAS 

A "Jatekok szamitogepre" cimu konyv porgramjanak atirasa a 
HOMELAB 3 szamitogepre. A programot sikeresen megoldani nagyon 
nehez. A mozgasegyenletekkel valo jatekok egy valtozata ez a 
program. 

10. GRAF1KA 

A Mikromagazinban megjelent Spectrumra irt grafikak koziil muta- 
tunk be itt egyet, bizonyitaskeppen, hogy bar a gep felbontoke- 
pessege eleg kicsi, azert meg igy is jol mutat egy grafikus prog- 
ram. 

11 . A1RCQMP GRAF1KA 

Eredetileg a HOMELAB 2-re kesztilt, de ezen a gepen is jo hatasu. 
A program az Y=A*exp (B*R) *cos (C*R) fiiggveny grafikus megjeleni- 
tese. Az A, B, C, D, E valtozok segedvaltozok a rajzolashoz, a 
P es az L lepeskozok. Az egyenletben talalhato cos. helyett sin. 
irva egy kisse mas rajzot kapunk, de erdemes megvaltoztatni a 
valtozok ertekeit is. 



12 . MAGYARORSZAG RAJZOLO 

Egy nagyon iigyes terkepra jzolo programot mutatunk be. A prog- 
ramot a sarkadi diakok keszitettek. 

13. FIZIKAI BEMUTATQ 

Rugalmas es rugalmatlan (itkozesek bemutatasara kesziilt ez a 

program, 32 betus valtozatban hasznalhato . A betaplalt szam- 

adatok segitsegevel kiszamit ja a lehetseges esetet, es azt egy 
mozgo abran be is mutatja. 

14 . FUGGVENYABRAZOLAS 

Matematikai iskolaprogram a fuggvenyabrazolas bemutatasara. 
64 karakteres valtozatra kesziilt . 

15. ORA 

Egy digitalis 6ra programjat ismerhetik meg. Az oran es a per- 
cen kiviil mutatja a masodpercet es az ebresztes idopontjat is. 
Erdekes megoldas a nagy szamjegyek letrehozasa, amelynek lenyege 
A 15-27. sor. Az oralapot a 18-130. sor tartalmazza, az 6ra cik- 
lusa a 140. -tol indul . A program vegen talalhato 400. sor a ka- 
rakterkod kivalasztasat segiti elo, mert a digitalis szamok 
16-255-ig szabadon valaszthatok . 

Elso programf iizetiinkben ennyi programot tudtunk Onoknek 
bemutatni . Elokeszitettiik mar a masodik fiizetet is, hamarosan 
ez is kiadasra keriil . Valogataskor kihagytuk a 4 Kbyte-nal na- 
gyobb programokat, mert ugy gondoltuk, hogy a nagyobb programok 
begepelesere kevesen vallalkoznak . Kihagytuk a kimondottan fel- 
hasznaloi programokat, reszben terjedelmuk, reszben egyedi fel- 
hasznalhatosaguk miatt. Termeszetesen azert ezeket sem zarjuk el 
a nyilvanossag elol, de mas formaban kivanjuk a f elhasznalok 
rendelkezesere bocsatani . 

Eszreveteleiket es programjaikat szeretettel varjuk, es a 

kesobb megjeleno fuzetekben az Onbk altal irt programokat is 

szivesen kozkinccse tesszuk. 

CIMUNK: BELVAROSI IFJUSAGI HAZ HCC HOMELAB KLUB 

1065 Budapest, V., Molnar u. 9. 

Klubgyules minden kedden 5-9-ig. 
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Plot X , 9 4 ; N e x t 
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Y = 2 to 93; Plot 1 , Y 

X = 1 to 1 26; P 1 o t X , : 
270 4 1 
trnd C 29 ) »62 + rnd (6 1 ) 
eek (X) 

1 D3 
I n k e y $ 

ID>500 then Print cur 2 , 4 ; " IDOH IANY MIATT 
D 20 0; Next; V = V +■ 1 ; 8 o t u 4000 
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to 2000; Ne x t ; V - V + 1 : (3 o t o 40 
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1110 
u b 1 

cur 55 , 2 j int (EN ) ; " 

150 
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' Poke C C + X , 3 2 : 
' P o k e C C + X , 3 2 ; 
' P o k s C C + X , 3 2 ; X : = X + 
o Z , oU ; L ; " L.lzPL8 " ; 
26 766' G o 5 u b 600 
CC + X)=255' G o 5 u b 70 
28766' Poke CC+X,79 
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chr$ ( 12 ) : h* 
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P r i n t : A $ = 
Gosub 1000 
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;; Print : Print A$="= ; = 
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520 Print :A$=" IRANYITAS: 'A' (FED 'X'(LE) '=='(BALRA 
) '?' (JuBBPA) B ILLENTYUKKEL rORTENIK": Gosub 10 

530 P r i n t ;; P Tint : A $ = " JO 5 Z R A K Z A 

BT - - - - ": Bosub 1000; Print ;A$ : ="A PRO BR AM 198 

5 FEBRUARJABAN KESZULT": Bosub 10 

540 Print ;; Print ;A$=" HA ELOLVASTAD NYOMJ MEG EBY BILLE 
N T Y U T ! " : Bosub 1000 

550 If In k e y $ = " " ' B o to 550 

560 Got o 100 

60 For 1=1 to 20; Print cur 61,27;chr$(247);"0";chr$!25i);: 
For p=l to 10; Next ; Print cur 6 1,27;" ": For K=l to 1.7 
;; Next , : Bosub B00; Print cP.rtlZ); Print cur 18,15;"***** 13 

□ t o 90 

700 Bssp chr$ ! 33 ,255 ,250 , 245 ,240 ,235 , 230 , 32 ) :U = U+ 1 : Print c 
ur 5 ,30 ;U ; " UTKOZES " ; 

70 5 If U <> 5 ' Return ' G o t o 7 1 

7 10 Print cP.r"(12); Print cur 20,15;"***** A JATEKNAK VEBE 
*****": Bssp "sZYXWVOTSRQPONMLK J IHGFEDCBA "; Goto 900 

80 Bssp cp.r'f ( 38 ,203, 180 ,161,203, 180 ,161,152,135,126,152,135,: 
26,101,101,32): R e t u r n 

900 Print cur 20 , 20 ; " AKARSZ UJRA JATBZANI? I/N"; 

9 10 A | = I n k e y $ 

¥20 IF A$="I"' Goto ¥50 

930 If A$ :: ="N"' Print chr$(12); Print cur 25,15;"*** VISZLAT 

***" ;; End 
940 If A$ :: =""' Boto 9 10 
950 Bssp "iADC "; Bssp "tiURT "; Bssp "irtt "; Run 100 

10 F or S Z = 1 t o 1 s n ( A $ ) ; P r i n t m i d $ ( A $ , S Z , 1 ) ; ; F o r T 
; Next , ; R s t u r n 
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"MINDENKI VESZTETT i": B 

cur 5 ,26 ; " ISMETLES ? ( 1 = 
1= " I " t hen Goto 5 70 
key$="N : ' then Goto 40 
540 
= 5 t o 40;; P r i n t c u r j , 2 6 ; 

cur 5 ,26 ; "UGYANAZOK JATS 

Beep " !B IEZ " 



i n t 
1 P 

I (3 E 



Ch 
N / N 



ri i 1 
AhfUU 
N E M 



t n e n bu c o z 4 u 
'. = t o X : N e x t 



o a u j. f j. n k ty'|- 

590 If I n k e y $ = " 

60 Goto 580 

1000 X = 3 ; Fo 

10 5 Beep ""/. JHG " 

1020 Print cur , ;st ring$ ( 64 , 42 ) ; cui 

1025 Y= 126976+64 :X=Y+27*64 s For B=Y t 

10 30 Poke B , 4 2 : Ho k e B + 63 ,42 

1040 Next 

10 50 Print cur 20 ,3; " A U f V E R 6 

10 60 Print cur 20,4;" 

10 70 Print cur 1 , 10 ; "S " ; cur 1,12; "T" 
; "R " ; cur 1 , 18 ; "T " ; cur 62 , 12 ; "G " ; cur 
Beep "ikout 

1 B F o r C - 8 1 o 119; P 1 o t C , 6 5 ; Plot C , 4 ; Next 

10 90 F or D = 4 t o 65; PI o t 8 , D ; P 1 o t 1 1 9 , D : N e x t 



1 n 9' $ S 6 4 , 4 2 ) 



cur 1 , 14 ; H ; cur 1 , 
2,14; "E " ; cur 62,16 



1100 E = 5 : Print cur E , 12 ; st n.ng$ ( 54 , 146 ) ; cur E,14;st 
54 , 146 ) ; cur E , 16 jstringt (54 , 146 ) ; Beep "#DSA " 

1110 Print cur 3,11;" 1 " ; cur 60 , 1 1 ; " 1 " ; cur 3 , 13 ; "2 " ; cur 60 , 
1 3 ; " 2 " ; c ur 3 , 1 5 ; " 3 " ; c u r 6 , 1 5 ; " 3 " ; c u r 3 , 1 7 ; " 4 " ; c ur 6 , 1 7 ; " 4 ; 



1120 P r i n t c u r 4 , DK: 

1130 Print cur 4 , 6 ; " 

1140 P r i n t c u r 4 , 8 ; B $ ( 1 ) ; c u r 1 £ 
5 0,B;B$C4S; Beep "&B " 

1148 F or N = 1 t o P 

1150 P r i n t c ur 4 , 2 ; R ( 1 ) ; " 
2 ; R (J ) ; " FT ,: ; cur 5u , 20 ; R < 4 i ; : ' 

1 

1160 F or N = 1 to P 

1 170 P r i n t c u r 4,22;A$(1);B(1);' 
F T " ; cur 3 4 , 2 2 ; ft $ ( 3 ) ; B ( 3 ) ; " F T " ; 
p "S;B " 

1180 Next 

1190 F or N = 1 to P 

120 P r i n t c ur 4 , 2 4 ; 8 $ ( 1 ) ; c u r i 
cirr SQ,24;S$(4)s Beep : '&G " 

12 10 Next 

20 A = 5 : B = 1 1 : C = 5 ;: D = 1 3 : E = 5 ;; F =15 

V ¥ 



,d ;b$« 



cur ^u 



2u ; R (2 ) 



; ; c u r 2 , 2 2 ; ft $ ( 2 ) ; hi ( 2 ) ; ' 
5 , 2 2 ; ft $ ( 4 ) ; B ( 4 ) ; " F "!" " ;; 



, 2 4 ; 8 $ k 2 ; ; c u r 



, 2 4 ; 8 $ i 3 ) ; 



i u l u 



" :;. n t 



c u r 



:: U 2 U 

20 30 
3 4 
30 5 
3 6 



X = i n t Irndi 4 ) ) : 



If 
If 
If 
If 



= t h e n H 

= 1 t h e n C 

= 2 t h e n E 

= 3 t h e n 6 



= A+ I 

C + 1 

E + 1 

6 ■+■ 1 



30 7 P r i n t c u r 



B ; ! 



1 a u i t 

30 90 I f 

1 

1 1 

3 1 2 I f 



t hen Print cur 4 , V ; 

then C $ = " L A U D A"; Boto 3000 

then print cur 18,9;" 

t hen " " : Got o 30 

t h e n P r i n t c u r 32,9;" 



ep " ;: bii . 



1 j u 

: 1 4 o I f 



C $ = " M C , L t i 

Print cur 50,9;" 



: C$= " ALBORETO " : Goto 3000 

2150 Goto 20 10 

30 H$=C$: Print cur 4,26;C$s cur 4,27;" 
) : F or Z = to X : Next 

30 50 F or N = 1 to F : 

30 60 If S $ ( N ) = H $ t h e n B o t o 3 160 

30 70 If S $ i N X > H $ t h en B o t o 3 140 

3140 R (N )=R (N )-B (N ) : Next 

3 150 boto 3 60 

3 160 R (N)=R(N)+B(N) 

3 170 Next 

3 180 Boto 360 

4000 Print cur 5,26;"J0HET A KOVETKEZO PROGRAM, 

40 10 End 

450 X=30 00; For Z=0 to X: Next : Beep "!AYJ 



45 lu Print cur 2u,15;A$(N); b Y u L I t. L 

4520 Beep c h r $ ( 3 5 , 255, 200, 255, 200, 44, 17 0,170, 33, 255, 
0,44,170,170,3 8 ,133,150 ,165,180 ,44,200 ,160 ,3 8 ,170,18; 
,245,245,32): Print c h r % i 1 2 ) : Goto 530 

5000 Print "EZ EBY AUTOVERSENV JATEK" 

50 10 P r i n t 

5020 Print "A JATEKOT MAX, NEGYEN JATSZHATJAK" 

5040 Print "MINDEN JATEKOS MEBNEVEZ E6Y AUTO VERSENY5 

5060 Print "AKIRE FQGADNI AKAR ES NEBADJA A TETET" 

50 70 P r i n t 

5080 Print "AMENNYIRE A NYERES I ESELYEIT ERTEKELI" 

5 10 Print "A KERDESEKET SAMIJ A GEP TESZI FEL" 

5 110 P r i n t 

5 120 Print "AZ AUT " NEVE I ;; " 

5 130 P r i n t 

5 140 Print "LAUD A " , "FROST " , "MB , LAREN " , "ALBORETO " 

5 150 P r i n t 

5160 Print "AMENNYI6EN ELQLVASTAD NYOMJ EBY BuMBOT" 

5165 J$= Ink ey$ 

5 170 If J$=""> Boto 5 165' Boto 



: u u , 
,20 



2 5 O , Z U 
,2 15,44 



1 ;■-' r i n t c h r $ I 1 2 ) : L r = 1 
12 Print cur 14,15; KESZ 

F o r T = to 3 ;: N e x t 

P r i n t c h r $ : (12) 



14 
16 

2 



iu 



sz 

P r 
35 P r 

BALRA . 
40 Pr 
42 Pr 

OKDZZA 
44 Pr 



c u r 0,3; - I'M ' 

cur 0,4; "" KAC 8 ZEMPONT JABO L JOBBRA ILL. 



cur 

cur 



'MINDEN UTKOZhS 



JK tLLKtbi- , 



DO 


-Tint 


D'Z 


i. t 1 n k e y $ O :: i :: t h e: n b o t o b U 


70 


: ' r i n t c h r $ ( 1 2 ) : F o r 1 t o 127 ;; P 1 o t 


BO 


"or J=0 to 47; Plot 0,J; Plot 12 7, J: 


90 


" o r 1 t o 125 s t e p r n d ( 4 ) + 4 


iO 


For K= I to 1 + 2: Plot K,9; Plot K,29 


i io 


F o r I = t o 1 2 5 s t e p r n d (4 ) + 4 


120 


For K= I to 1+2: Plot K,19: Plot K,3 


130 


F o r J= t o 4 7 ;; P 1 o t 4 , J ;; Plot B , J 


140 


Plot 121,6; P 1 o t 121,5; Plot 121,4 


1 4 5 


Plot 120,4; P 1 o t 1 1 9 , 4 


150 


1 1 ; 3= 4 4 ;; P 1 o t I , J ;; U : = 1 ; V : = : Y = 2 + r n d 


160 


fi = A 


170 


F o r X = 3 t o Z : A $ = I n i k e y $ 


172 


If A$ "," and UO0 then V = U;U : =0; Sc 


174 


If A$ "," and U = then U = V;V = 


180 


If A$ "," and UO0 then V = U:U = 0: Bo- 


182 


If «$=="," and U = then U = VsV==0 


1 9 


If A$<>"J" and A$<>"B" then Beep "IP 




P 1 o t 40 , ¥ ; C r = ; PI o t 4 , Y 5 


20 5 


C r = 1 : Plot B , Y ; C r = ;; Plot B , Y - 5 ; E 


2 10 


Y : = Y - 1 : If Y < 6 t h e n Y = 4 7 : 6 o t o 260 


2 2 


1= I + U ;; J J-V 


2 30 


A = p o i n t ( I , J ) ;; If A = 1 then Goto 270' 


2 4 


If I > 1 2 a n d J< 5 t h e n 13 o t o 30 


2 50 


8 o t o 170 


260 


For L=5 to step -1: Plot 40,L: PI 


/.. u 
270 


Print " " IS 


2 8 


Print cur 0,2; "FOLYTATJA ? I/N " 


282 


BZ-SZ+ 1 


290 


F $ = I n k e v $ 


292 


If F$=" I" then Soto 70 


2 9 4 


If F$ "N" then Print cur 10,ll;"v E 


2 96 


8 o t o 290 




B = 20+ 1+ J 


30 5 


Print " PRDBALKUZAS A BI 


30 6 


Print cur , 1 "GRATULALOK " 


3 1 


Beep "$ADAD'AA " 




Print cur 0,3;"FDLYTATJA ? I/N" 


3 3 


F$ : = Ink ey " 


332 


I f F $ " N " t h e n P r i n t oh r $(12); P r i n 


" ; 


i n d 


334 


If F$ " I " t hen Run 16 


336 


8 o t o 330 



M 1 Rd H VH L.L 



" 7 7 



10 



1 = 

P r i n t c u r I , 

"$DFSH " 

Y = 1 2 6 V 7 6 + 6 4 ; > 

P o k e J , 4 ; P o k 

F o r T = to 3 



40 

45 

TOW 

bO 

D'Z 

EL^ 

55 

60 
A/ B 

70 
UVEL 

75 

BO 

85 

87 

90 

96 
"KER 

97 

98 

99 
100 

1 10 
120 
130 
140 
145 
IbO 
160 
170 
180 
190 
192 
194 
196 
198 
199 
20 
220 

2 8 
290 
30 
5 
5 1 
520 
525 
530 

5 4 
550 
60 

6 10 
ZELE 
6 20 
625 
630 

6 4 
6 5 
B 
8 1 



!-' r i n t c u r 

P r i n t c u r 
BB " 

P r i n t c: u r 

P r i n t c: u r 



;"hZ E(3¥ KI5Z0RIT0S JATEK" 
' K 1 1 JATEKOS J A T S Z hi A I J A „ A C 



'VhKSENYBhN MARADNI." 

'AKI FALNAK MESY VABY UTKOZ 



HZ liUbV 



Print cur 3 , . " 

Print cur 3, 12; "A JATEKOT AZ EBY IK VERSENYZO A /Q/ ES AZ / 

ILLENTYUVEL, " 

Print cur 3, 14; "A MAS IK VERBENYZO AZ /(]/ ES A / '"'/ BILLENTY 

Print cur 3 , 1 6 " I R A N Y I T H A T J A " 

Print cur 3, 18; "JO SZORAKOZAST ! " 

Print cur J , 20 ; "HA ELO LVASTAD MYOMJ MES ESY BILLENTYUT" 

Print cur 14 ,25 ; "KESZ ITETTE : Balogh i'ibor" 

A $ = I n k e y $ : If A $ = " " then Goto 90 

Print chr$(12): For T = to 500; Next: Beep "&ASD " : Input 

EM AZ ESY IK JATEKOS NEVET?:";F$ 

P r i n t 

Beep ": Input "KEREM A MAS IK JATEKOS NEVET?:";6$ 

P r i n t c h r $ ( 12) 

F o r 1 20 t o 1 7 

Plot 1,20: Plot 1,75: Next: Beep "&DSA " 

For J 20 to 75 

P 1 o t 20, J ; F 1 o t 1 7 , J : N e x t : t " 

1 = 21 : J=70 :U=1 :V = :Z = 2 :K=106 :L=25 :X=1 :Y 

P 1 o t I , J : P 1 o t K , L 



!■ o r C ,i t o 



If A$ 

If A$ 

If A$ 

If 

If 

If 

If 



A$ 



A$= Inkey$ 



: u U u 
! AAA 



"*tvr V 
' « t V f 



Ne 



j u u 
B o to 60 



If A$="Q" and UO0 then V=-U:U=0: Boto 18i 
If A $ = " Q " a n d U = t h en U = V : V = 

and UO0 then V=U:U=0 : Boto 20 

a n d U = t h en U = - V : V 

and XO0 then Y=-X:X=0: Boto 19< 

a n d X = t h e n X = Y : Y = 

and XO0 then Y=X:X=0 : Boto 199 

a n d X = t h e n X = - Y : Y 

and A $ <> " "'" t h e n B e e p 
If A$<>"Q" and A$<>"A" then Beep 
1= I + U : J= J-V : K = K-X : L = L+Y 
A = p o i n t ( I , J ) : If A = 1 t h e n a e e p 
B = p o i n t ( K , L ) : If B = 1 then B e e p 
B o to 145 

For T=0 to 3000: Next: Print chr$(12) 

Print F$;" MEM FJSYELJEL JO L .OBSZPON TOS IT'S JOBBAN" 
Print : Print "FOLYTASSOK? I/N" 
A$= Inkey$ 

If Inkey$="I" then Boto 99 
I f I n k e y $ = " N " t h e n B o t o BOO 
Boto 530 

F o r N = t o 30 0: Next: P r i n t c h r $ ( 12) 

Print B$; " JOBBAN ODA KELLENE F IB YELNED . NEM BAJ,MA. 
BB" 

Print : Print "POL) I/N:" 

A $ = I n k e y $ 

If Inkey$="I" then Boto 99 
I f I n k e y $ = " N " t h e n B o t o BOO 
Boto 630 
P r i n t c h r $ ( 12) 
Print cur " A JATEKOT!" 

22 , 14 ; "V ISZBNTLATASR A ! . " 




LA 
b 

K K 
b 


b 

LP 



2 v. t i - r 1 n r c h r $ i 1 4 4) ; : :■■■ o r i = 1 t 

-■ r 1 n i c h r $ ( 1 4 5 ) ; : Q =129696:A=12 9 9 5 

) Print chr$ ( 12 ) 

10 Rem A J A "NEK LEI RASA 

20 Print cur 5, 5; "A KEPERNYDN ESY 

J ME 



TAN I 



5 ■:-: L_ U. V 5 .... 

P r i n t c u r 3 , 9 
E A JD E:>~ " 
P r i n t c u r 
TYOGT A f , " 
P r i n t c: u r 



Hi-KNYU SZALADGAL A TE ALTA 
7; E HA JUL IRANYITOD A 



:u Print cur b,b; A KbPtKNYUN bbY h 

I MEGSZABDTT" 

iO Print ;; Print cur 3 ,7 ; "BYORS AS AG 

M : < FALEVELLEL TAP-" 

■0 Print cur 3 ,9 ; " LALKOZ IK . A i APLAL.KOZAS3TQ L A K IBYO HOSSZA 

IE A JD E:>~ " 

TES B IZQNY ITAS ARA BIZONYOS DOLGOKAT E 

ET FERMESZETESEN NEM SZABAD ELFUGYASZ 



570 Print cur 3, 15; "A JATEKOT JOBBRA A />/, BALRA 
HZ /E/ , ES LE AZ /A/ " 

5t)0 Print cur 3 , 1 7 ; "B ILLENT YUKKEL IR AN Y IRH ATOD . " 
590 Print cur 5,20 ["HA ELOLVASTAD, NYOMJ EI3Y BILLE 

60 If Inkeyj "" ' Bo to 60 

6 10 R e t u r n 



:! T Y U T 



1 P 
V ,20 



r i n 
;"C 
r i n 
r i n 
r i n 
f I 



p 

P 
I 

P r i n 



t chrt ( 12 ) : Print cur 30 ,5 ; "UFO " ; cur 30 , 6 ; " " 

A N A D I L A S Z L " 
t cur 14 , 10 s "MOZGATAS A ».» ES >,,' B ILLENTYUVEL " : 
t cur 14, 12; "LOVES A ' BPACE » B ILLENT YUVEL " ; 
t cur 14, 14; "HA KhZUHET JUK NYOMJON MEG hOY GOMBOl 
NKi-Y$="" then Goto 5 
t c h r $ (12) 
3 1 ; Y = 1 5 



2DU 

25S 
260 
263 
265 
270 
2 B 
30 
5 10 
5 2 



540 



Cr= 
A=l 
L = I 

Y = > 

Bee 

If 

If 

If 

If 

If 

If 

If 

FT 

FT 

If 

J= 

BZ 

L = 

Or 

If 
If 

B 

FTi 

If 

For 

P r i 

Got 

For 

FTi 

For 

If 

If 

If 

If 

FTi 

BZ = 

A 



J = u 
int 
i n t 

n k i 
nk 
<1' 

>6: 



Y< 

Y> 

B 
in 
in 

I 



1 

t 
t 
nk 



(r 

(r 

A ; 
:y* = 
:y$ = 

? )■( 
» Y 
» Y 
' 
hr 
ur 
y* 
ep 



nd i 
nd i 



= K+1 :; 



Y + 

= y_ 

Go 

$ ( l: 



t n e n A = A - i 
, - -, , 

Bsep " ISC 
Beep " iSC 
Beep " ISC 



" ^ " ; c ur 
then So t 
'. IMQU " 



Si 

L+. 
= 1 



P 
nt 

1 = 

nt 
o 

T = 
nt 

T = 
P>= 
P>= 
P>= 
P>= 
nt 



5 — 3 ■** V then Goto 20b 

i t hen L=2 : Bot o 130 

$ AS DPS " :P = P+1 

our ,0 ;SZ ; " LOVES U 

1 * Boto 300 

1 t o 30 0; N e x t 

ohr$ ( 12 ) 





= to 30 0; Next 

cur u,Q;SZs" LOVES UTAf 
= to 30 0; N e x t 
= 6 ' Goto 530 
= 4 ' Goto 520 
: 2* Goto 510 
=0' Goto 500 

cur 5,4; " AKARSZ 
:> = o 



* I n k e y $ 



3 g g 
3 g 3 

50 
;30 

5 2 
5 30 



It h$ bo t 

If A$=""» Boto 
f-'r int chrj ( 12 ) 
F : r i n t c u r 2 , 1 ! 
E n d 
P r i n t c u r 5 , 2 



, 4 u 



? ? 



N 



V ISZONTLAT ASRA " 
6: Mi g o n d o 1 1 a iyi 5 h o g y 



sn u e n a v 



Print cur 5, 2; "Hat ez bizony eleg gyenge": Goto 3 
P r i n t c u r 5 , 2 ; " E 1 e g s z e p t e 1 j e s i t m e n y " : 6 o to 330 
P r mt c u r 5 , 2 ; " K i- v a 1 o e r e d m e n y , g r a t u 1 a 1 o k . " : Beep 
JKLMN00OPQRSTUUVZXY ": Soto 330 



BUM-"-' 



P( 



J l in 
4 = 

: $ = C h r 
\= Inke 
; ' r i n t 
; ' r i n t 
; ' r i n t 
; ' r i h t 
; ' r i n t 
; ' r i n t 
; ' r i n t 
; ' r i n t 
; ' r i n t 
; ' r i n t 
" ;Nf 
= lf t 
o r N = 
f N$ = 
f XY 



tor U = t o 1 u : N e x t 
i ) , M X ( 1 1 ) , X Y $ ( 1 1 ) : Z = 



if (12 



c: u r 
c: u r 
c: u r 
c: u r 
c u r 
cur 
c: u r 
c: u r 
c: u r 



13 
13 
13 
13 
I n p u 



1 2 ; - 
"__BE 
"hiiY 

" ft 

"VftN 
"EBY 
" EI3 

ll M I 

' c u r 



Y H A 
D EG 
ALA 
f'ifiSZ 
BY B 
ET A 
B BB 
LA LA 
L TO 



N$ 



$ (N$+ " " , 6 

4 F o r N = 1 t o 1 

6 If N$=XY$(N) then Pop 

7 If XY$(N)="" then Pop 

8 Next 

9 XY$ (N )=N$ :MX (N 5=0 
r i n t E $ : Z = 
rint cur 50,Z;"PILQTA 
o r I = 1 t o 1 1 : Z = Z + 2 
f XY* ( I ;=N$ ' N = Z 

f XY* ( I ! " " t hen Pop 

r i n t cur 4 9 , Z : X Y $ 



KB I REPULOBEP PILUTAJA VABY . " 
Y HADITAMABZPBNT FELETT HALAD" 
CSUNYAhfBAN, LE KELL R0MB0LN0D 1 

PBNTOT, KULBNBEN NEK IUTKO ZO I " 

BMBAVETB, ES EBY RAKETAK ILO VO : ' 
<SPACE> BOMBOKKAL, MAS IKAT AZ" 
MBBKKAL LEHET MOKODEBBE HBZNI, ; 
TNAK " " 
Be TALALATOT KELL ELERNED !" 

ADD ME6 A P ILL : , 



Li o to b u 
B o t o 4 9 



7 

110 For LiU=l to 30: P(S0) = 19: Next 

120 For BS = 1 to 1 1 1 

130 BO = i- n t f 5 + rn d f 2 2 ) ) 

149 If P (BB )<2 then 130 

150 P (BB )=P (BB )- 1 

160 Hoke 126976+64*P ( BO ) +B0*12 ,2 

170 N < t 

190 Print cur 20 , 20 ; "HAD IT AMASZPUN1 

20 (3 S = 1 : B B = 3 9 : B B = : R = : LO = : T = 



,; ,:, u 
2 40 
2 50 
260 
265 
270 

2 30 
30 

3 1 
3 20 
330 

50 
340 

3 50 
360 
370 
a g n 

390 

4 
4 1 
4 2 
4 3 
4 4 
4 4 5 

4 5 
4 6 
4 / 
4 B 
490 

4 95 
50 

5 10 
5 11 
5 12 

D !!. 6 

5 1 4 

: j I : j 

5 20 
5 30 
5 4- 
5 5 

5 60 
5 70 
5 b 

5 90 

6 
6 10 

4 3 i p 

6 1 5 
620 
6 2 1 
623 

+ 1+12 
625 

1 + 1 2 , 
627 
629 
630 
6 4 



5 u b 8 

I n k e y 

G0<3 

A<>32 

=es sb 

A = 
= 60 +R 

b = 
k e 1 2 
= BS+_1 

P < B U 



o r b U > 2: a u r K U + BU/U then I 
or 6S = 18 then Goto 270 

0=130: Poke 126976 + 64*20 + H 

t h e n 6 oto 30 

+ R ; 1 = 2: Goto 420 
then Goto 360 

6976+64*BS+B0+12 ,32 

: Poke 126976+64*BS+B0+12 , 

5 = ba then P ( BO ) = BS + 1 : T = 1 + 1 



BS<18 then Goto 470 
ke 126976+64*BS+B0+ 12 ,32 :BO=0 : Goto 470 

h'0>0 then Goto 380 
ke 126976+64*20+1+12,32: Goto 470 

R < then Goto 4 1 
ke 1269 76 + 64 "6S+R0+ 12 , 32 , 45 : RO =R0 + 1 : Goto 
= K0-J.: Poke 126976 + 64*GS+R0 + 12 ,45 ,32 

K0<2 or R0>29 then Goto 460 

P(R0)=G8 then Beep "ajp " ;; Goto 450 
1-1 ;; If DO then Goto 390 
to 3/0 
RO ) =63 + 1 

ke 126976+64*6S+R0+ 12 ,32 :RO=0 
I 

GAOQ then lioto 550 
126976 + 64*63+60- 1 + R+ 12 :_ 60=60+ R 

K<0 then Poke X , 133 , 143 , 32 ' Poke X, 32, 143 

63=1 then bote 520 

P(G0+R)<> GS then Goto 520 
=1: Poke 126976+64*6S+G0+R+ 12 , 155 
t a 1247 ,3456 , 1 2 654 ,23456 ,43V8 ,345 , 1000 ,32/ 
store; For 1=1 to 10: Read X 
s u b 950 
xt 

i ( G K < or 6 < 2 9 ) then Goto 630 
5 u b 8 
= 1 : G A = 3 : Goto 630 

= 6 A - 1 : If G A > 4 t h en Go t o 570 

= ; Poke 126976 + 64*6S+80"-R+ 12 ,32 : Goto 490 

G A = t h e n Goto 590 
ke 126976+64*63+60+12,143: Goto 630 

-1: R -R : Poke 126976 + 64*63 + 60-1+12,32,32 

=63+1: If 63>1B then 6oto 620 

126976 + 64*63+60 1+12: If R<0 then Poke X,3 

e X, 143, 143,32 
t O 6 3 U 

r 1 = 28 to 1 step - 1 

!■: e J. 2 6 9 7 6 + o ■ ■ - i 6 + I + 1 2 , 1 3 3 , 1 4 3 , 3 2 : 



P o k 
32 , 
Pok 
Nex 
I = I 
If 



L ± 6 V / 6 + 6 4 * 

i. 2: 6 V / 6 + 6 4 > 



1 — 5 -*— 1 



1 ■*- ? '-'*■ ? '-'*■ * 



I 2 6 9 / o + o '■: 



6 b u 


G D s u b 80 




; ;. ? ^-^ 


if WOu' Z = W 




6 6 U 


If OMXCN) then MX 


(. N > = 


6 6 6 


P r i n t c u r Do, L % ! 




6/U 


6 d t o 4 u 




8 


K e m 




810 


P r i n t c u r 3 4 , 2 u ; i ; 




HVU 


Ret u r n 




9 


Rem 




950 


Beep "uv 




960 


Beep "sA 





- i- R 8 



10 _AS ' 

1 1 Af = st ringi (64 ) 

12 Print " 

15 Print cur 9, 10; "HDL 

1 3 , 1 6 1 ) + c h r $ C 174) ;; c u r 



lur 



:z,iu 



:ur 



i u f r 



4 


-T 


60 


=T 


70 


-T 


; " 10 K 


90 


;. r 


120 


L 


125 


P 


1 3 u 


P 




"F 


131 


F 


132 


P 


140 


A 


Ibu 


P 


V*l . 


60 


ID 1 


I 


1 b 2 


T 


1 b b 


K 


160 


I 


170 


I 


1 ti I) 


8 


1 '/ U 


8 


20 


8 


2 1 U 


I 


2 v u 


I 


2 3 U 


8 


240 


P 


24 1 


8 


b u 


V 


260 


w 


261 


p 


262 


p 



UH . b U L Y 



P r i n t 



int cur , f ULYA 

int cur 0,16;" UZEMANYA8 

int cur , 18 ; "UZEMANYAG EGES I SEBESSEB_^ 

int cur C " " 100=MAX. hhKtZbS 

B/SEC UZEi1ANYAS_ FELHASZNALAS " 

irit cur , 24 ; "Bh A VATKOZ AS : 10 MASOuPi- KCtNKtNT 



r i n t 

r i n t c u r , 

ELH " ; Print 

o r I = 1 t o ; 

r i n t 

: = 1 2 : V : = 1 ; M = 3 3 : N = " 8=1 E - 3 ;; Z = 1 . 8 

rint cur 0;" "L; cur 3; int ( 10 6 ,9»A ) / 10 

9 ; cur 2 ; ( M - N ) * . 5 ; ; In p u t c u r 2 7 ; K 

f K>10 0' Print "; cur 28;" "; Soto :u 

1 
= 2*K 

f M N < . 1 ' 8 o t o 240 

f T < . 1 ' Bote 150 

= "i" ; If M > = N -i- 8 *■ K ' B o t o 20 

= ( M - N ) / K 

o s u b 420; I f I < = t h e n Bote 340 

f V < = t h e n 6 o t o 230 

f J<0 then Bote 370 

D 5 u b 330; Bote 160 

rint "AZ UZEMANYAG KIFOBYOTT A " ; L ; " -I 

( -V-i-sqr ( V*V + A*G*2 ) ) / B 

= V + B*'S ;; L=L + S 
= 360 *V 

rint "A HBLDRA ERT A " ; L ; " IK MASODPER 

rint " " ~ ~ ; W ; " KM/ H " 



8250 KB" 



HbUUrtHUHtN " 



MINDENKI fl E G H A L T , 

t K i H L 



2/1 Krint tz lutn : I UK, tLtlt 

272 Goto 440 

279 W=19 

280 It W < = 1 t h en (3 o t o 4 3 

281 Print "BEDS APOD IT A HULDR 
VEGE , , , 

282 Print "EGY " ; W*10Q ; " METER ATfitRUJ 
2 8 3 G D s u b 430 

320 Goto 440 

340 If S < 5 E 3 t h e n G o to 260 

350 D = V + sqr ( V'SV + 2«'A* (G-ZSK/M ) i : S = 2*A/D 

3 6 G o s u b 4 2 : Sosub 330;; Goto 340 

370 W= ( 1 ~rl'*G/ ( Z*K ) )/ 2 :S=M*v7 (Z*K* ( W + sqr ( W*W + v7 Z 
} )+ ,05 : Gosub 420 

380 If i< = t h e n G o t o 3 4 

390 Gosub 330; If J> t h en Go t o 1 6 

40 If V>0 then Goto 370 

4 10 Goto 160 

420 Q=S*K/M ;; J=V+G*S+Z* (-Q-Q*Q/ 2-Q-""3/ 3-Q-""4/ 4- 
Q ""-5 ) 

430 I = A-B*B*S/ 2-V*S + Z*S* (Q/ 2 + Q "'"2/ 6 + Q "'"3/ 12 + Q " 
3/ 12+Q"'"4/ 20+Q "'"5/ 30 ) ;; Return 

440 P r i n t ; P r i n t : P r i n t ;; " " , t 
-. JAR ! " 

445 Print ;; Print ;" GYASZ INDULD A HALQTTAKNA^ 

446 Print cur 3 ;st ring$ (25 , 16 1 ) 

448 Print ;; Print "EGY RDVID CSEND AZ ELPUSZTUL1 

450 For K = t 

50 = ;X = X ' "GYASZ INDULD " 

530 Data 175,175,177,160,190,157, 2 17,201, 2 31,1 4 ■ 
00 , 124 , 124 

540 Data 220,210,220,230,240,190, 
22_, 189 , 199 

55 K e a d P 

560 R e a d R 

565 0=0+1 

5 8 B e e p o h r $ ( 3 6 , P , 3 2 ) : Be e p c h r $ > 

60 If <> 1 6 ' Goto 530' Goto 620 

620 Restore 530 : Print Goto 1 

70 E n d 

7 10 Save "- -AS " 



:tesnek 

EIRE " 



Q 



i.. , .i. ;■ ^.; , i.. 



1 F 


r i n t 


chr$ ( 1 


2 ) : 


Bo 


s u t: 


10 






5 F 


r i n t 


chr$ ( 1 


2 ) ; 


Cr 


= 1 








10 


F o r 


K = t ;: 


3C 


st 


ep 


b 






20 


F a r 


X = t o 


64 












30 


Y= 15 


- a b s ( X - 


16 


*si 


n (> 


*P i / 1. 


J2 ) 




40 


P 1 o t 


X.Y+K: 


p] 


ot 


Y + K 


, .-■■■■. 






50 


Plot 


127-X, 


V + f: 




lot 


1 27- 


( Yh-H 


) , X 


60 


Next 


? 














70 


End 
















10 


P r i 


n t c u r 


, 


§ <- ^ 


r$ ( 


142) ^ 


c u r 


1 , s t i 


, c h r $ C 


143 ) 














10 S 


T=i 


26976+6 


4 s 


X = 1 


+ 2E 


■^■64 ° 


r o r 


i I t 


4 7 : 


P o k e 


£ + 63 , 1 4 7 


Nt 


x t 








1 10 


Pri 


n t c: u r 


,2 


9; 


c h r 


$(14' 


) i; c 


U r j. , .:::. " 


6 jj 5 2 


9 ;chr$ ( 145 ) 














120 


P r i 


n t c u r 


25 , 


5 ; " 


13 R 


A ;:::■ 


I i< 


A " 


130 


P r i 


n t c: u r 


VS ; 


6? " 


= 


~ -- = = 


-- ~ - 


= " 


1 4 


P r i 


n t c u r 


26, 


10 | 




AT IRA 


s 




1 5 


Pri 


n t c u r 


25, 


1 5 ^ 


"BALOSH 


T IBL 


R " 


15:: 


For 


T tc 




« 


Ne 









_^ ' 



1 u :i. n t c: h r $ i ) iur 1 

2 H m = 3 1 

40 A = 40 ;B==-2 :C = 6 

70 D = B5 :E = 28 :F=15 

72 P= , 125 II L= ,036 

B F o r X = H m to H m + 320; P o k e X , : N 6: x t 

92 C r 

F o r Z = ~1.3 t o 1 . 3 s t e p P ; F o r X = -1.5 t o 1 . 5 
10 R=X*X+Z*Z ; B=E*X+F*Z+D : Y=F*Z+F+ A*exp ( B*R ) *c d 
C*R ) +4 



20 If 

30 N e x t , 

40 C = 1 

5 2 F o r X = i 

5 4 tnd 



:> ;,; 



\ hrt 



^b : 



t h* 



P J.c 




r 

20 
,9 1,9 
9,110 
,115, 
3,11 8 
20 10 

3 ,98 

jj *L / ,5 

2 2 

1 1 ™ J 

16^11 
20 30 
,45 ,4 
86 ,87 
2040 
,84 ,8 
, D 6 ,8 
8 1,10 
20 50 
1 u ,53 
,40 ,5 
20 60 
, 3 6 , 5 
1,54, 
20/0 
, 6 , 
11,5 3 
20 80 
, / 6 , Q 

4 ,85 , 
2090 
24 ,49 

,39,4 



a t a 1 
19,12 
3,54, 
,92,1 
at a 9 

3 ,.j ,5 / 
,120 
iit a 2 
,47,4 
88 , 1 1 
at a 7 
,10 9, 
, 10 9, 

a t a 5 
55 , 78 



17,21, 3 3 , 3 4 ,35, 3 6,3/, 3 8 , 3 9 , 4 U ,41,42,43,4 
8,57,90,113,114,115,8,9,16,16,19,20,57,89,113,6,9,57 
3,10 ,10 ,11, 12, 13, 57, 85, 86, 97, 88, il2 

,13,57,85,86,87,111,112,6,14,56,84,85,86,110,5,13,5 
6,13,57,82,63,84,109,9,9,10,11,12,57,61,62,83,110,4, 
7,9,54,55,56,81,107,108,5,10,54,56,81,107,5,10,54,56 



4,78 


1 


U a t a 


8 


4,75 


1 


7 4 , 1 i 


1 


uat a 


1 


8 ,54 


7 


„ 7 7,9 6 


Data 


5 


8,89 


9 


86,87, 


uat a 


4 


,56 ,58 


,48 


5 


u , HJ 


^ 



J 7 J i! J J. ^ 

U w 5 D ;i D 
, .J , L»4 , t, 

;,■: , 9 , 7 

'! .:!: ,J L 1. J 

1 j 8 ,.6j 

7 ,97 ,<?{ 

? 4 j x ■'- ? * 

, j. D , X 6 

o ,91 , 9 ; 

1 3 , 2 1 , 1: 
,59 ,60 

,31 , 5 * 



6 , BU , 1 
9,54,5 

■j} O 5 w" 7 5 
6 , -j; / <j w 

30 ,31 , 
3,24,2 
24,25, 
,99,4, 

■„! -..j :; i .-■' :j 

_,93,94 
Z , 6 5 , 6 
65,71, 
74 ,5 ,2 



07,5, 
5,77, 
40 ,54 
B_,54_, 

5,26, 
26 ,27 
8,53, 
7,4,1 
95 ,4 , 
,4,19 
9,70 , 

4 ' 22 ' 
5,50, 

48 , 53 

44 ,55 



10 5,4, 
,76 ,77 
76,103 

,34 ,54 

2 Zi 2B I 
,28, 2 9 

V ''?' '' 

y D vi 5 / 6 

72,73, 
50,64, 
3 1 ,56, 



/9, 
,54 
4 , 
4,2 

4 >! 

* "j "j 

6 ,7 
9,5 
97, 
,94 
8 , 1 

, / , 
, 9 , 
,46 



u/, 
77, 
,4, 
3,4 
1 , 1 
74, 
, 10 
, 76 
,14 
4,1 

77, 
3,4 
6,2 
47, 



5,9, 
10 4 , 
ii 6 , 3 
,3,6 
0,6, 
10 
1,6, 
,97, 

' 15 ,-l 

,53 , 
78 ,7 
9 ,57 

WW 



j i.j ij w 5 ,) / 6 .j j. 

.!. U , w :J / 5 6 .j T 5 

7 ,38 ,54 ,76 , 

;j -..„ : ,::.. :: -.,.,= w : ;; -.... : '":' ;; *...= 

26 ^27 ,28 ,29 

9 5 2 4 5 jd 5 76 
4,10,53,76, 

D i.'j ,j / / •) 'i 6 

,77 ,94 , 10,1 
w 6,6/ , 6 8 , 7 5 
9 ,80 ,81 ,B2_ 

•j t) I ;, 6 2 , 6 -jj , / 
h jL 1 ij ~t "■ v, -...:■ -\. , -....= 
5 o 4 ij ii 3 , w Q , w 



6 , 5 

38,3 

1 u 3 
4 ,3 
iO , 

99, 
97,4 



,83 



b , / 
3,54 






i u K e m d U n n 

30 Goto 160 

40 C r = : PI o t A , X : I 

50 A=A+VA:B=B+VB 

60 C r : = 1 : F : 1 o t A , X : F 

70 If B>62 B o to '10: 

80 If A < B B u t u '40 

90 BR : = 1 : P 1 o t A , X - 1 



Pit 



10 P r i n t c u r 



.!. .:::: 



1 10 
120 
130 
140 
141 
142 
144 
146 
1 4 Ei 

1 4 9 
IbO 
160 
170 
ISO 
190 
20 

2 10 
220 
230 
2 4 
250 
2 60 
2 70 

2 SO 
290 
30 

" 
320 
330 

3 4 
350 
3 60 
370 

3 8 
390 

4 10 
4 20 
4 30 
4 4 
4 5 
4 6 
4 70 

4 a o 

4 9 

5 
5 1 
520 
530 
5 4 
550 
5 6 
5 7 
5 g 

5 90 
60 

6 10 
620 
630 
6 40 
6 5 
6 6 



: P 

A + WA ; 
1 : P 

( A>2 
i n t 
= Inks 

Q$ = 

Q$ = 

n t 
i n t 
d 

i n t 
i 
i 
i 



1 o t A , X ; PI o t B , X 
B=B+WB 

lot fi,X; Plot B,X 
and B < 6 1 ) and A < 6 3 Got 
U J ADATOK? ( I/N ) : 



" J. " b O t O 

"N" Goto 
: Print 
P r i n t : 



140 ' 
" *-s* 
r i n t 



1 4 ,; 
v ISZONT LA TAGRf 



FT: 

Foi 

Ne: 

FT: 

F'r: 

FT: 

FT: 

In: 

If 

FT: 

In: 

If 

If 



In 

If 

F'r 

A = 

If 

If 

If 

In 

If 

In 

If 

GO 

FT 

Goi 

FT: 

Goi 

If 

If 

If 

WA = 

WB = 

F'r: 

F'r: 

F'r: 

F'r: 

F'r: 

F'r: 

F'r: 



nt 
nt 
nt 
nt 
nt 
nt 

A 

t 

nt 

nt 

nt 

nt 

ut 

R<0 

nt 

ut 

A$< 



nt 
ut 
B$< 
n t 



" R U G A L M n A T L AN" 

"ES VALODI UTKOZESEK" 

t o 40 



" 
"RUGALMATLAN (0 ) " 
"VA6Y VALODI (0 ) EB 
"UTKOZEST SZERETNEL 
o r R > 1 (3 o t o ' 1150 



( 1 ) KOZOTT 1 



"MINDKET TEST MOZOG JON ( I , N ) ' 
>"N" and A*<>"I" Goto '1190 
" N " Go t o '410 

"SZEMBEN MOZOG JANAK (S ) , " 
"V'AGY EGYMAST UTO LERVE ( U ) " 
"UTKOZZENEK" ;B$ 



A$: 
Ut 

MA- 

ut 

MB 

O ! 
nt 



A$^ 
A$^ 
(Mi 
i li- 
nt 
nt 
nt 
nt 
nt 
nt 
nt 



= "N 
= " I 
= " I 

"M 
= 

"M 
= 
»50 

"T 
1-60 

"T 
>B0 

= " I 
= " I 

= "N 

i-R 
-R) 



" ' B = A + 3 u 

" and B$= "S " ' B = B-i-60 
" a n d B $ = " U " ' B = A + 1 5 
ENNY I LEGYEN M 1 (KG ) ' 

G o t o '510 
ENNY I LEGYEN M2(KG)' 

6 o t o ' b 3 



I I U I 



Tl 



' a n a b f = " a " u o s u □ - / */ u 

a n d B $ = " U " 6 o sub '900 

G o s u b '10 70 
>MB )/ (MA + MB )*VA+ ( 1 + R )*MB/ (MA + f 
H1A7 (MA + MB )*VA+ (MB-R*MA)/ (MA + MB )*VE 



"TO MEG" 

"M 1 " ; MA ; " M2 " ; MB 

"UTKOZES ELOTT" 

"VI " i V A * 1 i " V 2 = " ; V B * 1 

" UTKOZES UTAN" 
"W1=";WA*10, " H2="|VB«-10 



670 


F o r C = 1 t o 6 1 




6 a o 


C r 1 ; P 1 o t C , 3 




6 9 


Next 




70 


F o r C = 1 t o 6 1 s t e p 2 




7 10 


P 1 o t C , 3 1 




7 20 


Next 




730 


F o r C = 1 t o 6 1 s t e p 5 




7 40 


P 1 o t C , 2 9 




7 50 


Next 




7 70 


P 1 o t A , X : P 1 o t B , X 




7 80 


G o t D 4 




790 


Input " M E I'M N Y I L E S Y E N V 1 ( + M / S ) ' 


^ V j~i 


8 


it VH< = U Soto '860 




8 1 


VA=VA/ 10 




8 20 


Input "MENNYI LbSYhN V2(-M/S> 




8 30 


If VB> = Goto '880 




8 4 


VB=VB/ 10 




8 5 


R e t u r n 




860 


Print "AZ1 MONDTAM Vl>UI : ' 




870 


B o to 790 




8 8 


Print "AZT MONDTAM V2<0 1 " 




E! 9 


B o to 820 




¥00 


Input "MENNYI L E S Y E N V 1 ( + M / S ) ' 


| VA 


9 10 


If VA< = Soto '970 




920 


VA=VA7 10 




930 


Input "MENNYI LESYEN V2(+M/S)' 


| VB 




If VtK = Goto '990 




9 50 


VB=VB/ 10 




9 60 


K e t u r n 




9 70 


Print "fill MONDTAM , V 1>0 ! " 




9 80 


B o t o 90 




990 


Print "AZT MONDTAM , V2>0 ' " 




10 


6 o t o 930 




10 10 


Print "PAJTI,EZ SOSEM FOSJA" 




1020 


Print "UTiJLERNI A MASIKAfi" 




10 3 


F D r C = 1 to 60 




1040 


N <t 




10 50 


Soto 410 




10 60 


13 o t o 90 




1070 


P r i n t " V 2 = " 




10 80 


VB==0 




10 90 


Input "MEN NY I " 8 


" ; v 


1 100 


If VA<0 Soto ' 1 130 




1110 


VA=VA/ 10 




1 120 


Ret u r n 




1130 


Print "AZT MONDTAM , V 1 >U ! " 




1 140 


S o t o 10 90 




1 150 


Print " P A J T I MESERTETTED A F E 




1 160 


F o r C = 1 t o 40 




1 1 /0 


N ■: t 




1180 


S oto 250 




1 190 


Print "EN I V A B Y N B E T U T K E R 1 


EM 1 


120 


F o r C = 1 t o 40 




12 10 


Next 




1220 


S o t o 3 10 




123 


Print "EN S VABY U BETUT KER'l 


EM " 


1240 


F o r B = 1 t o 40 




1250 


N :t 




1260 


Soto 3 b u 





ATOT ' 



i p u t c u r , ; " K E R E M 

= ■ - 10 : B = 1 

: A*B<0 then E=127* 



it 
Ne 
M = 
to 
WB 



- D : U = ; 
C*D< = 



1 : P : = : N : = 1 : Q = : F F 

r Wft= 1 to ( len (F* )-2 ) 

$ = m i d $ ( F $ , W A , 3 ) : I F WB$="SQF 



D u f o r 

60 X = 

6 

6 

7 

7 



h =. u d ~i i e p \ 

>(= M*T + P 

I f X = (3 o t o ' 1 2 

I f F F = 80 and s g n ( x ) 

¥ = v a 1 ( F $ ) 

¥ = Y 

80 2=N*Y+Q 

85 If B - A = 6 o to '120 
90 E=127*(T-A )/ (B-A i 
'i ti If C - D = 8 o to '120 
100 F = 95* (Z-D )/ (C-D 5 
10 2 If E < 8 o to '120 
103 If E>127 Soto ' 120 
105 If F < 8 o to '120 
10 6 If F>95 Goto '120 
120 N ■: t 



5 D i m B$(10,10),C(4),A(6),B(6) 

10 Y= 1290 24 :UU = 256 :C ( 1 ) = 9 : C (2 ) == 17 ;C (3 

15 M$ ***** ** ** *** * * 

16 Input _;'KARAKTER_ KBD 15-255- IB " ;Q ; 

17 If 0<15 or U>255' Print ";: Soto 

18 V$ "": For 1= 1 to 38; X = asc(mid$( 



19 V$ Vf+chri CX ) ; 

20 K = ' "WRITTEN BY DEZSB BARABABI" 

22 C$="IPBLFPI RERRRRI IP6QR0: ;6QA6Pi Q A h 
:6QR0O0 IPPIPPI IPP96Q<" 
2 3 F o r t t o 9 : D = 1 



44: 



7 

7 

ri 

B 



19 
9 
9 

+ A 
1 
1 

" ( 



i A 
5 I 
it 

( p 

' r i 
: P 
.nt 
;ch 
i t 



$ ( r , d ) 

x t 

= chr$ 
6,146, 
$="" : 
o 50 : 
* = » ii . 

o 48 : 
nput " 
i nt 

$=lf t$ 
nput " 
: G 
r i n t " 
n t c u r 
r i n t c 
c u r 4 
r$ ( 144 

o r 1 1 

o r I 



1 G ip 5, L 

= m i d $ 
Next 
( 142 , 
145): 
F o r I 
F$ = F$ 
F o r I 
F$ = F$ 
IDGPO 
" ; : (3 
( ft $ , 6 
EBRES 
oto / 
: F 
4,4; 
ur 4 , 
, ib;c 
,146) 
t o 4 
t o 6 



* i f " i '■ i > '■"-_ 
( M $ , J , 5 ) ) : U : 



1 4 6 , 1 4 6 , 1 4 3 ) ; H $ = c h r $ ( 147,32,32, 147) : $ ::: = c h r $ i 

P r i n t 

1 to 50:T$ = T$ + chr$(146): Next; F$=""s For 

+ c h r $ ( 3 2 ) : Next 

1 to 48:T$ = T$ + chr$(146): Next; F$=""s For 

+chr$(32); Next; Print 

NT?";A$;s L=Ien(A$)s If L<6' Print " ";" 

o t o 6 5 

) 

TO " ,Q$ ° LA— 3. en (Q$ ) ; UU— val (p$ ) If UU>2359 



nnt cur 4 ,3 ;chr$ ( 142 , 146 )+ i i + chri ( 146 , 146 ) ; 
chr$ ( 147 , 142 ) + T$ + chr$ ( 143 , 147 ) ; : For 1=1 to 
4+ I jchr$ ( 147 , 147 )+F$ + chr$ ( 147 , 147 ) ; : Next : 
hr$ ( 147 , 144 ) + I $ + chri ( 145 , 147 ) ; : Print cur 4 , 
+ T$ + cF,r$ ( 146 , 145 i 

B ( I )=val (mid$ (Q$ , I , 1 ) ) : Next ' "B (4 )=ti (4 )- 1 ; 

A ( I ) = va 1 C m i d $ C A$ , I , 1 ) ) ; Next ; A ( 5 ) = 1 *A ( 5 ) 



F u r I - :: 1 t a 4 = 6 a s u b 2: V U = N e: x: t 

F r i n t c u r 45, 8 ; R $ ; c u r 45,9; H $ ; c u r 4 5 , 1 ; $ ; 
) " ; cur 4 5 , 1 4 ; m i. d $ f Q $ , 1 , 2 ) + " : " + m i d $ ( Q $ , 3 , 2 ) 
Print cur 6,6;" HOUR MINUTE 



N D ; 
1 1 



Pri 
D* = 

Ren 



1 

1 

ISO HH=9 

1 

1 

1 

1 



Fo 
Fo 
Fo 
Fo 



16U 

140 



170 

1 B 
190 
SOU Q $ 
20 5 If 

2 10 L= 

Ne 
Ne 
Ne 
Fo 
If 
If 



22U 
230 
235 
240 
250 
290 
29b 
299 S== 
( e t u r n 
525 Fo 
545 Be 
560 Be 
10 P r 



( i 



2 .1. 
H $ , 2 ) : ft ( : 
C IKLUSOK 
= 250 

=ft(l) to 
=ft(2) to 
= ft ( 3 ) t o 
= ft ( 4 ) t o 



) B a r a D a s i K e z: i: 



H H ;; I : = ' 
O ii i = 3 
9 ii 1 = 4 



(j O 5 U D ii 7 U 

; G o sub 2 9 
8 o s u b 290 
8 o s u b 290 



1 T 

, 3 6 C 



F o r 8 = A ( 5 ) to 59 



ien ( st r$ ( G ) ) ii Print cur 46,9;G$' 
1 8 4 : T T = 3 2 : Bosuo 11,325,11: i< =18 
x t ii ft ( 5 ) = ii I = 4 ii N e x t ii A ( 4 ) = 
xt lift (3 )=0 ; Next : A_(2 ) = () 
x t ii ft ( 1 ) = ; Goto 155 
r I = 1 t o 50 0; Next; R e t u r n 
B ( 1 ) = A ( 1 ) ' Goto 298' Soto 299 
B(2)=A(2) and B(3)=A(3) and BC 
7 ; F o r R 1 t o 7 ; P r i n t c u r C ( I ) 



4 3 =_A 
, 8 + P 



( 4 ) ' 

S$ (ft 



bosub 

( I ) , R '. 



646 
; Next 



k e - 6 6 4 , K 

ep " ! ABCDEFGH I JKLMN " ii Rei 

"ijQQ Ret urn 
int " " ; : For 1 15 to 255; 



